home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 4_2005-2006.ISO / data / Zips / Database_S1924098152005.psc / Subforms flex / PropertyPage1.pag < prev    next >
Text File  |  2005-08-15  |  7KB  |  253 lines
  1. VERSION 5.00
  2. Begin VB.PropertyPage Columns 
  3.    BackColor       =   &H00FFFFFF&
  4.    Caption         =   "Columns"
  5.    ClientHeight    =   3495
  6.    ClientLeft      =   0
  7.    ClientTop       =   0
  8.    ClientWidth     =   5925
  9.    PaletteMode     =   0  'Halftone
  10.    ScaleHeight     =   3495
  11.    ScaleWidth      =   5925
  12.    Begin VB.CommandButton Command4 
  13.       Caption         =   "&Remove"
  14.       Height          =   375
  15.       Left            =   4080
  16.       TabIndex        =   7
  17.       Top             =   360
  18.       Width           =   1215
  19.    End
  20.    Begin VB.CommandButton Command3 
  21.       Caption         =   "&Insert"
  22.       Height          =   375
  23.       Left            =   2760
  24.       TabIndex        =   6
  25.       Top             =   360
  26.       Width           =   1215
  27.    End
  28.    Begin VB.CheckBox chkDuplication 
  29.       BackColor       =   &H00FFFFFF&
  30.       Caption         =   "Check Duplicate"
  31.       Height          =   375
  32.       Left            =   1320
  33.       TabIndex        =   5
  34.       Top             =   1440
  35.       Width           =   3735
  36.    End
  37.    Begin VB.ComboBox cmbCelltype 
  38.       Height          =   315
  39.       ItemData        =   "PropertyPage1.pgx":0000
  40.       Left            =   1320
  41.       List            =   "PropertyPage1.pgx":0010
  42.       Style           =   2  'Dropdown List
  43.       TabIndex        =   3
  44.       Top             =   960
  45.       Width           =   3975
  46.    End
  47.    Begin VB.CommandButton Command2 
  48.       Appearance      =   0  'Flat
  49.       Height          =   380
  50.       Left            =   2160
  51.       Picture         =   "PropertyPage1.pgx":0039
  52.       Style           =   1  'Graphical
  53.       TabIndex        =   1
  54.       Top             =   360
  55.       Width           =   240
  56.    End
  57.    Begin VB.CommandButton Command1 
  58.       Appearance      =   0  'Flat
  59.       Height          =   380
  60.       Left            =   2400
  61.       Picture         =   "PropertyPage1.pgx":35C9
  62.       Style           =   1  'Graphical
  63.       TabIndex        =   0
  64.       Top             =   360
  65.       Width           =   240
  66.    End
  67.    Begin VB.Image Image1 
  68.       Height          =   615
  69.       Left            =   3480
  70.       Picture         =   "PropertyPage1.pgx":6B53
  71.       Stretch         =   -1  'True
  72.       Top             =   2760
  73.       Width           =   2295
  74.    End
  75.    Begin VB.Label Label2 
  76.       BackColor       =   &H00FFFFFF&
  77.       Caption         =   "Index"
  78.       Height          =   255
  79.       Left            =   240
  80.       TabIndex        =   8
  81.       Top             =   480
  82.       Width           =   615
  83.    End
  84.    Begin VB.Label Label4 
  85.       BackColor       =   &H00FFFFFF&
  86.       Caption         =   "CellType:"
  87.       Height          =   375
  88.       Left            =   240
  89.       TabIndex        =   4
  90.       Top             =   1080
  91.       Width           =   1095
  92.    End
  93.    Begin VB.Label Lblcindex 
  94.       Alignment       =   2  'Center
  95.       BorderStyle     =   1  'Fixed Single
  96.       Caption         =   "0"
  97.       Height          =   375
  98.       Left            =   1320
  99.       TabIndex        =   2
  100.       Top             =   360
  101.       Width           =   855
  102.    End
  103. End
  104. Attribute VB_Name = "Columns"
  105. Attribute VB_GlobalNameSpace = False
  106. Attribute VB_Creatable = True
  107. Attribute VB_PredeclaredId = False
  108. Attribute VB_Exposed = True
  109. Dim pformat As String
  110. Dim m As Long
  111. Dim s() As String
  112. Dim t() As String
  113. Dim ind As Long
  114. Private Type pro
  115.     cind As Long
  116.     typess As String
  117.     dp As Byte
  118. End Type
  119. Dim pros() As pro
  120. Private Sub txtFormat_Change()
  121.     Changed = True
  122. End Sub
  123.  
  124.  
  125. Private Sub chkDuplication_Click()
  126.     pros(Lblcindex).dp = chkDuplication.Value
  127.     Changed = True
  128. End Sub
  129.  
  130.  
  131.  
  132. Private Sub cmbCelltype_Click()
  133.     pros(Lblcindex).typess = cmbCelltype
  134.     Changed = True
  135. End Sub
  136.  
  137. Private Sub Command1_Click()
  138. On Error GoTo x
  139.     If m < ind Then
  140.         m = m + 1
  141.         's = Split(pformat, Chr(1))
  142.         'For i = 0 To s
  143.         If UBound(pros) > 0 Then
  144.             't = Split(pros(m), Chr(2))
  145.             Lblcindex = m
  146.             cmbCelltype.text = pros(Lblcindex).typess
  147.             chkDuplication = pros(Lblcindex).dp
  148.         End If
  149.     End If
  150. x:
  151. End Sub
  152.  
  153. Private Sub Command2_Click()
  154.     On Error GoTo x
  155.     If m > 0 Then
  156.         m = m - 1
  157.          If UBound(pros) > 0 Then
  158.             't = Split(pros(m), Chr(2))
  159.             Lblcindex = m
  160.             cmbCelltype.text = pros(Lblcindex).typess
  161.             chkDuplication = pros(Lblcindex).dp
  162.         End If
  163.     End If
  164. x:
  165. End Sub
  166.  
  167. Private Sub Command3_Click()
  168.     ind = ind + 1
  169.     ReDim Preserve pros(ind)
  170.     If cmbCelltype.text <> "" Then cmbCelltype.text = "TextBox"
  171.     'pformat = IIf(pformat <> "", pformat & Chr(1), "") & Lblcindex & Chr(1) & cmbCelltype & Chr(1) & chkDuplication.Value
  172.     'lblcind = ind
  173.     Lblcindex = ind
  174.     clear
  175. End Sub
  176.  
  177. Private Sub Command4_Click()
  178.     Dim tmp() As pro
  179.     tmp = pros
  180.     
  181.     ReDim pros(ind - 1)
  182.     For i = 0 To UBound(tmp)
  183.         If i <> Lblcindex Then
  184.             pros(j).cind = tmp(i).cind
  185.             pros(j).dp = tmp(i).dp
  186.             pros(j).typess = tmp(i).typess
  187.         End If
  188.     Next
  189.     ind = ind - 1
  190. End Sub
  191.  
  192. Private Sub PropertyPage_ApplyChanges()
  193.     pformat = ""
  194.     For i = 0 To UBound(pros)
  195.         pros(i).cind = i
  196.         pformat = IIf(pformat <> "", pformat & Chr(1), "") & pros(i).cind & Chr(2) & IIf(LCase(pros(i).typess) = "textbox", 0, IIf(LCase(pros(i).typess) = "combobox", 1, IIf(LCase(pros(i).typess) = "checkbox", 2, 3))) & Chr(2) & pros(i).dp
  197.     Next
  198.     SelectedControls(0).Format = pformat
  199. End Sub
  200.  
  201. Private Sub PropertyPage_Initialize()
  202.   '  pformat = SelectedControls(0).Format
  203.   ReDim pros(0)
  204. End Sub
  205.  
  206. Private Sub PropertyPage_SelectionChanged()
  207.   '  txtcaption.text = SelectedControls(0).Caption
  208. '    txtCols.text = SelectedControls(0).Cols
  209.  '   txtRows.text = SelectedControls(0).Rows
  210.     pformat = ""
  211.     pformat = SelectedControls(0).Format
  212.     If pformat <> "" Then
  213.         
  214.         s = Split(pformat, Chr(1))
  215.         ReDim pros(UBound(s))
  216.         For i = 0 To UBound(s)
  217.             t = Split(s(i), Chr(2))
  218.             pros(i).cind = t(0)
  219.             Select Case t(1)
  220.             Case 0
  221.                 tt = "TextBox"
  222.             Case 1
  223.                 tt = "ComboBox"
  224.             Case 2
  225.                 tt = "CheckBox"
  226.             Case 3
  227.                 tt = "Button"
  228.             End Select
  229.             pros(i).typess = tt
  230.             pros(i).dp = t(2)
  231.         Next
  232.         m = 0
  233.         Lblcindex = 0
  234.         ind = UBound(pros)
  235.         cmbCelltype = pros(0).typess
  236.         chkDuplication.Value = pros(0).dp
  237.     End If
  238. End Sub
  239.  
  240. 'Public Property Get q() As p
  241.     
  242. 'End Property
  243.  
  244. 'Public Property Let q(ByRef vNewValue() As p)
  245.  '   PropertyChanged "q"
  246. 'End Property
  247.  
  248. Public Sub clear()
  249.     cmbCelltype.text = "TextBox"
  250.     chkDuplication.Value = 0
  251.     
  252. End Sub
  253.